|
Inventor VBA : abgeleiteten Komponente - Basisteil per VBA ersetzen
EIBe 3D am 15.04.2021 um 16:50 Uhr (1)
Hallo Frank,Zitat:...Was mache ich falsch?...Bitte nicht falsch vertehen: Du nutzt die Möglichkeiten des Editors nicht. Lasse dir das Lokal Fenster im VBA Editor anzeigen. Dort kannst du dann alle Objekte untersuchen z.B. wenn die Ausführung bei der Fehlerzeile stehen bleibt.Dann würdest du sehen, dass das Objekt die Eigenschaft auf welche du zugreifen möchtest schlicht nicht besitzt.Richtig lautet der Zugriff auf den FullFileName eines Ursprungsteils einer AK:Code:oRefDoc.ComponentDefinition.ReferenceComp ...
| | In das Form Inventor VBA wechseln |
|
Inventor VBA : abgeleiteten Komponente - Basisteil per VBA ersetzen
EIBe 3D am 13.04.2021 um 13:37 Uhr (1)
Hallo Frank,tauschen geht nur wenn die neue Basiskomponente eien Kopie der ursprünglichen Basiskomponente ist.Beispiel von hier schnell umgestrickt.Code:Public Sub DeriveComponentReplace() Dim oApp As Inventor.Application: Set oApp = ThisApplication If oApp.ActiveEditObject.DocumentType DocumentTypeEnum.kPartDocumentObject Then Exit Sub Dim oDoc As PartDocument: Set oDoc = ThisApplication.ActiveEditDocument Dim oDef As PartComponentDefinition: Set oDef = oDoc.ComponentDefinition Dim oSubs1 As Derived ...
| | In das Form Inventor VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |